home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / tcp / amircask.lha / askhost.amirx < prev   
Text File  |  1997-03-21  |  3KB  |  84 lines
  1. /* Askhost script for use with AmIRC 1.x */ version='1.05'/*
  2. // Written by Deryk Robosson 11.18.96
  3. //
  4. // newlook@ameritech.net newlook on #amiga IRC (EfNet)
  5. //
  6. // 03.01.97 - Corrected problem with SAY. Reported by SimD
  7. // 15.01.97 - Supports showing a user the output
  8. //            Supports passing user nick for input
  9. // 03.03.97 - Corrected typo in my name ;)
  10. // 04.03.97 - Prettied up the help/ver info a bit
  11. // 06.03.97 - added hostname info to output
  12. // 18.03.97 - Cleaned up the code
  13. // 21.03.97 - Corrected problem when echoing to yourself
  14. */
  15. bold = d2c(2)
  16. underline = '1F'x
  17. tempfile = 't:Askhost.temp'
  18. options results
  19. parse arg param
  20.  
  21. if upper(param) = ''|param='VER' then signal version
  22. if upper(param) = 'HELP' then signal help
  23.  
  24. if param~ = '' then do
  25.     parse var param where' 'command
  26.     parse var where domain'.'whatever
  27.     if whatever = '' then do
  28.         'USERHOST 'where
  29.         if result~ = 'RESULT' then parse var result blah'@'host
  30.     end
  31.     else host=where
  32.  
  33.     if command~ = '' then do
  34.         parse var command command' 'user
  35.     end
  36.     else command = ''
  37. end
  38.  
  39. ADDRESS COMMAND 'amitcp:bin/Askhost 'host' >T:Askhost.temp'
  40.  
  41. if open(file, tempfile,'R') then do
  42.     do until eof(file)
  43.         line = ReadLn(file)
  44.         select
  45.             when line = ' ' then nop
  46.             otherwise
  47.                 select
  48.                     when command = 'SAY' then 'SAY 'line
  49.                     when command = 'SAY /NOTICE' user||" "||line
  50.                     otherwise
  51.                         if command = '' then call echo(line)
  52.                 end
  53.         end
  54.     end
  55.     close(file)
  56.     ADDRESS COMMAND 'delete >NIL:' tempfile 'quiet force'
  57. end
  58. Exit
  59.  
  60. version:    /* show the user version information */
  61.     call echo(bold'Askhost.AMIRX'bold' Version 'bold||version)
  62.     call echo('Read the top of Askhost.AMIRX script for history.')
  63.     call echo(bold'©1996,1997'bold' Deryk Robosson 'bold'(newlook)'bold' - [newlook@ameritech.net]')
  64.     call echo(bold'Type /<alias> help for command information')
  65. exit
  66.  
  67. help:      /* show the user help examples */
  68.     call echo(bold'Askhost.AMIRC'bold' Help')
  69.     call echo(bold'SAY - 'bold'echos output to window')
  70.     call echo(bold'VER - 'bold'displays script version')
  71.     call echo(bold'SHOW - 'bold'displays outout to user')
  72.     call echo(bold'HELP - 'bold'displays this file')
  73.     call echo(bold||UNDERLINE'EXAMPLES:'bold||UNDERLINE)
  74.     call echo(bold'/Askhost site 'bold' to see output yourself')
  75.     call echo(bold'/Askhost usernick 'bold' to see output yourself')
  76.     call echo(bold'/Askhost site SAY 'bold' to show output to channel')
  77.     call echo(bold'/Askhost site SHOW nick 'bold' to show output to a user')
  78. exit
  79.  
  80. echo: procedure
  81.     parse arg a
  82.     'echo P='d2c(27)'b«Askhost» 'a
  83. return 1
  84.